home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / TREASURY BILL VALUATION.bas < prev   
BASIC Source File  |  2012-02-16  |  881b  |  31 lines
  1. 5  TEXT : HOME 
  2. 10  PRINT "*********************************"
  3. 20  PRINT "*** TREASURY BILL VALUATION   ***"
  4. 30  PRINT "*********************************"
  5. 40  PRINT 
  6. 50  PRINT "**********************************"
  7. 60  PRINT "*THIS PROGRAM CALCULATES THE PRICE*"
  8. 70  PRINT "*PER $100 AND DOLLAR VALUE OF U.S.*"
  9. 80  PRINT "*        TREASURY BILLS           *"
  10. 90  PRINT "***********************************"
  11. 100  PRINT 
  12. 210  INPUT "FACE AMOUNT ($)";F
  13. 211  PRINT 
  14. 220  INPUT "DAYS TO MATURITY";D
  15. 221  PRINT 
  16. 230  INPUT "BID QUOTE (%)";B
  17. 231  PRINT 
  18. 240  INPUT "ASK QUOTE (%)";A
  19. 241  PRINT 1
  20. 242  PRINT 
  21. 250  LET H = 100 -(B +A)/2 *(D/360)
  22. 260  LET T = F *H/100
  23. 270  PRINT "FACE AMOUNT= ";F
  24. 280  PRINT "DAYS TO MATURITY= ";B
  25. 290  PRINT "BID QUOTE (%)= ";B
  26. 300  PRINT "ASK QUOTE (%)= ";A
  27. 310  PRINT 
  28. 320  PRINT "PRICE PER $100= ";H
  29. 330  PRINT "TOTAL VALUE=    ";T
  30. 331  PRINT 
  31. 340  GOTO 10